program testBooleanFalse;

class testBooleanFalse

BEGIN
   VAR aa : boolean;
      
FUNCTION testBooleanFalse; 
BEGIN
   aa := False;
   PRINT aa
END
   
END   
.

